/**********************************************
Table D2: Effect of Wealth Treatment on Risk Aversion
***********************************************/

preserve
yougov

* Column 1

qui reg risk risktreat , r
outreg2 using "$output/tabd2.doc",  replace  nocons  ctitle(" ")  dec(3)   
qui margins, at (risktreat = (0 1)) post
regsave using "$temp/fig7data", replace

* Column 2

qui reg risk risktreat $cfexp, r
outreg2 using "$output/tabd2.doc",    nocons  ctitle(" ")  dec(3)    append tex

qui sum risk if risktreat==0 & e(sample)==1   // to get control mean
local Mean2 = r(mean)
qui reg
local percent = _b[risktreat]/`Mean2'

restore
